home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wrnsr094 / aboutbox.frm next >
Text File  |  1995-05-08  |  5KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About WRN"
  5.    ClientHeight    =   5940
  6.    ClientLeft      =   1995
  7.    ClientTop       =   2505
  8.    ClientWidth     =   5490
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "System"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   6345
  16.    Icon            =   0
  17.    Left            =   1935
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   5940
  23.    ScaleWidth      =   5490
  24.    Top             =   2160
  25.    Width           =   5610
  26.    Begin CommandButton BTN_OK 
  27.       Caption         =   "OK"
  28.       Height          =   360
  29.       Left            =   2160
  30.       TabIndex        =   1
  31.       Top             =   5400
  32.       Width           =   1080
  33.    End
  34.    Begin TextBox Text2 
  35.       BorderStyle     =   0  'None
  36.       Height          =   1140
  37.       Left            =   720
  38.       MultiLine       =   -1  'True
  39.       TabIndex        =   6
  40.       Text            =   "This program does not do any communications... it merely allows the user to read & reply to news and/or mail which has been received by Waffle. Waffle will then upload the replies as if they had been typed in via Waffle itself."
  41.       Top             =   3900
  42.       Width           =   4335
  43.    End
  44.    Begin TextBox Text1 
  45.       BorderStyle     =   0  'None
  46.       Height          =   1215
  47.       Left            =   720
  48.       MultiLine       =   -1  'True
  49.       TabIndex        =   5
  50.       Text            =   "This is an early prototype of a Windows-based Usenet News Reader. It is designed for a single-user system which uses the Waffle BBS software to exchange News and Mail with a host system via UUCP."
  51.       Top             =   2625
  52.       Width           =   4335
  53.    End
  54.    Begin TextBox Text3 
  55.       Height          =   765
  56.       Left            =   1080
  57.       MultiLine       =   -1  'True
  58.       TabIndex        =   7
  59.       Text            =   "frank@whare.cavebbs.welly.gen.nz   f_vander@comp.vuw.ac.nz  frank@cit.ac.nz "
  60.       Top             =   1425
  61.       Width           =   3375
  62.    End
  63.    Begin TextBox Text4 
  64.       BorderStyle     =   0  'None
  65.       Height          =   240
  66.       Left            =   4080
  67.       TabIndex        =   8
  68.       Text            =   "23 Nov. 1992"
  69.       Top             =   750
  70.       Width           =   1335
  71.    End
  72.    Begin PictureBox PIC_Icon 
  73.       BorderStyle     =   0  'None
  74.       Height          =   720
  75.       Left            =   240
  76.       Picture         =   ABOUTBOX.FRX:0000
  77.       ScaleHeight     =   720
  78.       ScaleWidth      =   600
  79.       TabIndex        =   0
  80.       Top             =   675
  81.       Width           =   600
  82.    End
  83.    Begin Label LAB_2 
  84.       Alignment       =   2  'Center
  85.       Caption         =   "by Frank van der Hulst"
  86.       FontBold        =   -1  'True
  87.       FontItalic      =   0   'False
  88.       FontName        =   "MS Sans Serif"
  89.       FontSize        =   9.75
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   300
  93.       Left            =   1320
  94.       TabIndex        =   3
  95.       Top             =   1125
  96.       Width           =   2535
  97.    End
  98.    Begin Label Label1 
  99.       Alignment       =   2  'Center
  100.       Caption         =   "Version 0.94 beta"
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   12
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   -1  'True
  107.       Height          =   375
  108.       Left            =   1320
  109.       TabIndex        =   4
  110.       Top             =   675
  111.       Width           =   2535
  112.    End
  113.    Begin Label LAB_1 
  114.       Alignment       =   2  'Center
  115.       Caption         =   "Windows/Waffle Read News"
  116.       FontBold        =   -1  'True
  117.       FontItalic      =   0   'False
  118.       FontName        =   "MS Sans Serif"
  119.       FontSize        =   18
  120.       FontStrikethru  =   0   'False
  121.       FontUnderline   =   0   'False
  122.       Height          =   630
  123.       Left            =   120
  124.       TabIndex        =   2
  125.       Top             =   150
  126.       Width           =   5295
  127.    End
  128. End
  129.  
  130. Sub BTN_OK_Click ()
  131.    edit.enabled = true
  132.    AboutBox.Hide
  133. End Sub
  134.  
  135. Sub BTN_OK_KeyPress (KeyAscii As Integer)
  136.  
  137.     BTN_OK_Click
  138.  
  139. End Sub
  140.  
  141. Sub Form_Unload (Cancel As Integer)
  142.    edit.enabled = true
  143. End Sub
  144.  
  145.